home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / wild12.zip / WILD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-05-01  |  20KB  |  1,370 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN003
  21.     Boolean  BOOLEAN004
  22.     Boolean  BOOLEAN005
  23.     Boolean  BOOLEAN006
  24.     Boolean  BOOLEAN007
  25.     Boolean  BOOLEAN008
  26.     Boolean  BOOLEAN009
  27.     Boolean  BOOLEAN010
  28.     Boolean  BOOLEAN011
  29.     Boolean  BOOLEAN012
  30.     Boolean  BOOLEAN013
  31.     Boolean  BOOLEAN014
  32.     Integer  INTEGER001
  33.     Integer  INTEGER002
  34.     Integer  INTEGER003
  35.     Integer  INTEGER004
  36.     Real     REAL001
  37.     Real     REAL002
  38.     Real     REAL003
  39.     Real     REAL004
  40.     Real     REAL005
  41.     String   STRING010
  42.     String   STRING013
  43.     String   STRING014
  44.     String   STRING015
  45.     String   STRING016
  46.     String   STRING017
  47.     String   STRING018
  48.     String   STRING019
  49.     String   STRING020
  50.     String   STRING021
  51.     String   STRING022
  52.     String   TSTRING023(20)
  53.     String   STRING024
  54.     String   STRING025
  55.     String   STRING026
  56.     String   STRING027
  57.     String   STRING028
  58.     String   STRING029
  59.     String   STRING030
  60.     String   STRING031
  61.     String   STRING032
  62.     String   STRING033
  63.     String   STRING034
  64.     String   STRING035
  65.     String   STRING036
  66.     String   STRING037
  67.     String   STRING038
  68.     String   STRING039
  69.     String   STRING040
  70.     String   STRING041
  71.     String   STRING042
  72.     String   STRING043
  73.     String   STRING044
  74.     String   STRING045
  75.     String   STRING046
  76.     String   STRING047
  77.     String   STRING048
  78.     String   STRING049
  79.     String   STRING050
  80.     String   STRING051
  81.     String   STRING052
  82.     String   STRING053
  83.     String   STRING054
  84.     String   STRING055
  85.     String   STRING056
  86.     String   STRING057
  87.     String   STRING058
  88.     String   STRING059
  89.     String   STRING060
  90.     String   TSTRING061(10)
  91.     String   TSTRING062(10)
  92.     Int      INT001
  93.     Int      INT002
  94.     Int      INT003
  95.     Int      INT004
  96.     Int      INT005
  97.     Int      INT006
  98.     Int      INT008
  99.     Int      INT009
  100.     Int      INT010
  101.     Int      INT011
  102.     Int      INT012
  103.     Int      INT013
  104.     Int      INT014
  105.     Int      INT015
  106.     Int      INT016
  107.     Int      INT017
  108.     Int      INT018
  109.     Int      INT019
  110.     Int      INT020
  111.     Int      INT021
  112.     Int      INT022
  113.     Int      INT023
  114.     Int      INT024
  115.     Int      INT025
  116.     Int      INT026
  117.     Int      INT027
  118.     Int      INT028
  119.     Int      INT029
  120.     Int      INT030
  121.     Int      INT031
  122.     Int      INT032
  123.     Int      INT033
  124.     Int      INT034
  125.     Int      INT035
  126.     Int      INT036
  127.     Int      INT037
  128.     Int      INT038
  129.     Int      INT039
  130.     BigStr   BIGSTR001
  131.     BigStr   BIGSTR002
  132.     Declare  Function FUNCTION001(String STRING001, String STRING002, String STRING003) Boolean
  133.     Declare  Function FUNCTION002(String STRING008, String STRING009) Boolean
  134.     Declare  Function FUNCTION003(String STRING011, String STRING012, Int INT007) String
  135.  
  136. ;------------------------------------------------------------------------------
  137.  
  138.     Goto LABEL006
  139.     End
  140.  
  141. ;------------------------------------------------------------------------------
  142.  
  143.     Function FUNCTION001(String STRING001, String STRING002, String STRING003) Boolean
  144.  
  145.     String   STRING004
  146.     String   STRING005
  147.     String   STRING006
  148.     String   STRING007
  149.     Boolean  BOOLEAN002
  150.     String   STRING008
  151.  
  152.     If (InStr(STRING001, ".") <> 0) Then
  153.         STRING006 = Mid(STRING001, 1, InStr(STRING001, ".") - 1)
  154.         STRING007 = Mid(STRING001, InStr(STRING001, "."), Len(STRING001) - InStr(STRING001, ".") + 1)
  155.         If ((STRING007 == ".") || (STRING007 == ".???")) STRING007 = ".*"
  156.     Else
  157.         STRING006 = STRING001
  158.         STRING007 = ".*"
  159.     Endif
  160.     FUNCTION001 = 0
  161.     STRING004 = STRING006
  162.     STRING005 = STRING002
  163.     BOOLEAN002 = FUNCTION002(STRING004, STRING005)
  164.     If (BOOLEAN002) Then
  165.         STRING004 = STRING007
  166.         STRING005 = STRING003
  167.         FUNCTION001 = FUNCTION002(STRING004, STRING005)
  168.     Endif
  169.  
  170.     EndFunc
  171.  
  172.  
  173. ;------------------------------------------------------------------------------
  174.  
  175.     Function FUNCTION002(String STRING008, String STRING009) Boolean
  176.  
  177.     Int      INT001
  178.     Int      INT002
  179.     Int      INT003
  180.     Int      INT004
  181.     Int      INT005
  182.     Int      INT006
  183.     String   STRING010
  184.     String   STRING011
  185.  
  186.     FUNCTION002 = 1
  187.     INT001 = 0
  188.     INT002 = 0
  189.     INT003 = 1
  190.     INT004 = 0
  191.     INT005 = Len(STRING008)
  192.     INT006 = Len(STRING009)
  193.     :LABEL001
  194.     INT001 = INT001 + INT003
  195.     INT002 = INT002 + INT003
  196.     INT004 = INT004 + 1
  197.     If (INT004 > INT006) Goto LABEL002
  198.     STRING010 = Mid(STRING008, INT001, 1)
  199.     If (STRING010 == "*") Goto LABEL003
  200.     If ((STRING010 <> "?") && (Mid(STRING009, INT002, 1) <> STRING010)) Then
  201.         FUNCTION002 = 0
  202.     Else
  203.         Goto LABEL001
  204.         :LABEL002
  205.         If ((INT001 >= Len(STRING008)) || (INT001 < 1)) Return
  206.         If ((Mid(STRING008, INT001, 1) <> "*") && (Mid(STRING008, INT001, 1) <> "?")) Then
  207.             FUNCTION002 = 0
  208.             Goto LABEL004
  209.         Else
  210.             Goto LABEL001
  211.         Endif
  212.         :LABEL003
  213.         If (INT001 <> INT005) Then
  214.             INT003 = -1
  215.             INT005 = INT001
  216.             INT001 = Len(STRING008) + 1
  217.             INT002 = Len(STRING009) + 1
  218.             INT004 = 0
  219.             Goto LABEL001
  220.         Endif
  221.     Endif
  222.     :LABEL004
  223.  
  224.     EndFunc
  225.  
  226.  
  227. ;------------------------------------------------------------------------------
  228.  
  229.     Function FUNCTION003(String STRING011, String STRING012, Int INT007) String
  230.  
  231.     String   STRING014
  232.     String   STRING015
  233.     String   STRING016
  234.     String   STRING017
  235.     Int      INT008
  236.     Int      INT009
  237.     Int      INT010
  238.     Int      INT011
  239.     Int      INT012
  240.  
  241.     If ((InStr(STRING011, "-") == 0) || (InStr(STRING011, "-") == 1)) Goto LABEL005
  242.     STRING015 = STRING011
  243.     STRING011 = ""
  244.     Tokenize STRING015
  245.     If (TokCount() == 0) Goto LABEL005
  246.     For INT010 = 1 To Len(STRING015)
  247.         STRING014 = GetToken()
  248.         If (STRING014 == "") Break
  249.         If (InStr(STRING014, "-") == 0) Then
  250.             STRING011 = STRING011 + STRING014 + " "
  251.             Continue
  252.         Endif
  253.         STRING016 = Mid(STRING014, 1, InStr(STRING014, "-") - 1)
  254.         If (STRING016 <> "") STRING017 = Mid(STRING014, InStr(STRING014, "-") + 1, Len(STRING014))
  255.         INT008 = S2I(STRING016, 10)
  256.         INT009 = S2I(STRING017, 10)
  257.         If (INT008 < 1) Then
  258.             If (INT008 == 0) STRING016 = STRING014
  259.             Newline
  260.             PrintLn ReadLine(STRING012, 38), STRING016, ReadLine(STRING012, 39)
  261.             Delay 36
  262.             Continue
  263.         Endif
  264.         If (INT009 > INT007) Then
  265.             Newline
  266.             PrintLn ReadLine(STRING012, 40), INT009, ReadLine(STRING012, 41)
  267.             Delay 36
  268.             Continue
  269.         Endif
  270.         If (INT009 >= INT008) Then
  271.             For INT011 = INT008 To INT009
  272.                 STRING011 = STRING011 + LTrim(I2S(INT011, 10), " ") + " "
  273.             Next
  274.             Continue
  275.         Endif
  276.         Newline
  277.         PrintLn ReadLine(STRING012, 42), STRING014
  278.     Next
  279.     :LABEL005
  280.     FUNCTION003 = STRING011
  281.  
  282.     EndFunc
  283.  
  284.     :LABEL006
  285.     INT012 = TokCount()
  286.     If (INT012 > 0) Then
  287.         STRING018 = GetToken()
  288.         If ((STRING018 == "DL") || (STRING018 == "FL")) Then
  289.             If (STRING018 == "DL") Then
  290.                 BOOLEAN004 = 1
  291.                 Goto LABEL007
  292.             Endif
  293.             If (STRING018 == "FL") Then
  294.                 BOOLEAN005 = 1
  295.             Endif
  296.             :LABEL007
  297.             Dec INT012
  298.             STRING018 = ""
  299.             STRING018 = GetToken()
  300.         Endif
  301.     Endif
  302.     STRING021 = PPEPath() + "WILDTXT" + LangExt()
  303.     If (INT012 == 0) Then
  304.         STRING019 = ""
  305.         If (BOOLEAN005) Goto LABEL010
  306.         If (FlagCnt()) Then
  307.             If (BOOLEAN004) Goto LABEL008
  308.             STRING022 = "D " + Chr(13)
  309.             Goto LABEL033
  310.             :LABEL008
  311.             STRING020 = ReadLine(STRING021, 1)
  312.             Goto LABEL009
  313.         Endif
  314.         STRING020 = ReadLine(STRING021, 2)
  315.         :LABEL009
  316.         Goto LABEL011
  317.         :LABEL010
  318.         STRING020 = ReadLine(STRING021, 64)
  319.         :LABEL011
  320.         Newline
  321.         InputStr STRING020, STRING019, 14, 80, Mask_Ascii(), 8 + 256 + 16
  322.         If (STRING019 == "") Then
  323.             STRING022 = Chr(13)
  324.             Goto LABEL033
  325.         Endif
  326.         Tokenize STRING019
  327.         STRING018 = GetToken()
  328.         If (BOOLEAN005) Then
  329.             If (STRING018 <> "D") Then
  330.                 STRING022 = STRING019 + Chr(13)
  331.                 Goto LABEL033
  332.                 Goto LABEL012
  333.             Endif
  334.             STRING018 = GetToken()
  335.             If (STRING018 == "") Then
  336.                 STRING022 = Chr(13)
  337.                 Goto LABEL033
  338.             Endif
  339.         Endif
  340.         :LABEL012
  341.         If (!BOOLEAN004 && !BOOLEAN005) Then
  342.             STRING022 = "D "
  343.             BOOLEAN004 = 1
  344.         Endif
  345.     Endif
  346.     INT013 = 0
  347.     While (1) Do
  348.         If (STRING018 == "") Break
  349.         If ((InStr(STRING018, "*") <> 0) || (InStr(STRING018, "?") <> 0)) Then
  350.             If ((((InStr(STRING018, ".") > 9) || (Len(STRING018) - InStr(STRING018, ".") > 3)) || (InStr(STRING018, "**") > 0)) || (InStr(STRING018, "..") > 0)) Then
  351.                 Gosub LABEL020
  352.             Else
  353.                 Inc INT013
  354.                 TSTRING023(INT013) = STRING018
  355.             Endif
  356.         Else
  357.             If (BOOLEAN004) Goto LABEL013
  358.             BOOLEAN004 = 1
  359.             STRING022 = "D "
  360.             :LABEL013
  361.             STRING022 = STRING022 + " " + STRING018
  362.         Endif
  363.         STRING018 = GetToken()
  364.     EndWhile
  365.     If ((INT012 <> 0) && (INT013 == 0)) Then
  366.         INT012 = 0
  367.     Else
  368.         If ((INT012 == 0) && (INT013 == 0)) Goto LABEL033
  369.         INT012 = INT013
  370.         INT013 = 1
  371.         GetUser
  372.         Gosub LABEL022
  373.         STRING043 = PPEPath() + "WILD" + String(PcbNode()) + ".DEF"
  374.         If (Exist(STRING043)) Delete STRING043
  375.         FAppend 6, STRING043, 1, 0
  376.         Gosub LABEL037
  377.         If (InStr(STRING019, ".") > 0) Then
  378.             STRING033 = Mid(STRING019, 1, InStr(STRING019, ".") - 1)
  379.             STRING034 = Mid(STRING019, InStr(STRING019, "."), Len(STRING019) - InStr(STRING019, ".") + 1)
  380.             If ((STRING034 == ".") || (STRING034 == ".???")) STRING034 = ".*"
  381.         Else
  382.             STRING033 = STRING019
  383.             STRING034 = ".*"
  384.             STRING019 = STRING019 + ".*"
  385.         Endif
  386.         StartDisp 1
  387.         Gosub LABEL021
  388.         Gosub LABEL046
  389.         If (!BOOLEAN014) Gosub LABEL047
  390.         Gosub LABEL039
  391.         Gosub LABEL040
  392.         Gosub LABEL041
  393.         FOpen 3, STRING059, 0, 0
  394.         While (1) Do
  395.             FGet 3, STRING024
  396.             BOOLEAN012 = Ferr(3)
  397.             If (INT015 >= INT021) BOOLEAN012 = 1
  398.             If (BOOLEAN010) BOOLEAN012 = 1
  399.             If (BOOLEAN012) Then
  400.                 Inc INT013
  401.                 If (INT013 <= INT012) Then
  402.                     Gosub LABEL043
  403.                     STRING019 = TSTRING023(INT013)
  404.                     Gosub LABEL022
  405.                     Gosub LABEL021
  406.                     STRING028 = Left(STRING019, 1)
  407.                     Frewind 3
  408.                     Continue
  409.                     Goto LABEL014
  410.                 Endif
  411.                 Gosub LABEL043
  412.                 Goto LABEL033
  413.             Endif
  414.             :LABEL014
  415.             BOOLEAN013 = 0
  416.             If (Left(STRING024, 1) <> "%") Then
  417.                 STRING018 = STRING024 + STRING019
  418.                 STRING027 = FindFirst(STRING018)
  419.                 While (STRING027 <> "") Do
  420.                     If (INT023 <> 0) Then
  421.                         If (Mid(STRING027, 1, INT023) == STRING035) Then
  422.                             BOOLEAN006 = 1
  423.                             Goto LABEL015
  424.                         Endif
  425.                         BOOLEAN006 = 0
  426.                         :LABEL015
  427.                         Goto LABEL016
  428.                     Endif
  429.                     If (InStr(STRING027, ".") <> 0) Then
  430.                         STRING029 = Mid(STRING027, 1, InStr(STRING027, ".") - 1)
  431.                         STRING030 = Mid(STRING027, InStr(STRING027, "."), Len(STRING027) - InStr(STRING027, ".") + 1)
  432.                         BOOLEAN006 = FUNCTION001(STRING019, STRING029, STRING030)
  433.                         Gosub LABEL046
  434.                     Endif
  435.                     :LABEL016
  436.                     If (BOOLEAN006) Gosub LABEL044
  437.                     STRING027 = FindNext()
  438.                     Gosub LABEL046
  439.                     Gosub LABEL038
  440.                     If (BOOLEAN010) Break
  441.                     If (INT015 >= INT021) Break
  442.                 EndWhile
  443.                 Continue
  444.             Endif
  445.             BOOLEAN013 = 1
  446.             Gosub LABEL038
  447.             If (BOOLEAN010) Break
  448.             STRING024 = Mid(STRING024, 2, Len(STRING024))
  449.             FOpen 4, STRING024, 0, 0
  450.             FRead 4, INT020, 2
  451.             STRING056 = ""
  452.             If ((STRING028 == "*") || (STRING028 == "?")) Then
  453.                 STRING028 = "A"
  454.                 INT019 = 1
  455.             Else
  456.                 If (STRING028 < "A") Then
  457.                     STRING056 = STRING028
  458.                     STRING028 = "A"
  459.                 Endif
  460.                 If (STRING028 > "Z") STRING028 = "Z"
  461.                 INT019 = S2I(STRING028, 36) - 9
  462.             Endif
  463.             FSeek 4, INT019 * 2, 0
  464.             FRead 4, INT025, 2
  465.             FRead 4, INT026, 2
  466.             If (((STRING056 < "A") && (STRING056 <> "")) && (STRING028 == "A")) Then
  467.                 INT026 = INT025
  468.                 INT025 = 1
  469.             Endif
  470.             If (STRING028 == "Z") Then
  471.                 INT026 = INT020
  472.                 If (STRING056 <> "") Then
  473.                     INT026 = INT025
  474.                     INT025 = 1
  475.                 Endif
  476.             Endif
  477.             Gosub LABEL025
  478.             FSeek 4, INT025 * 13 + 128, 0
  479.             While (1) Do
  480.                 If (INT025 >= INT026) Break
  481.                 If (INT015 >= INT021) Break
  482.                 Gosub LABEL046
  483.                 Gosub LABEL038
  484.                 If (BOOLEAN010) Break
  485.                 FRead 4, STRING029, 8
  486.                 FRead 4, STRING030, 3
  487.                 FRead 4, INT014, 2
  488.                 Inc INT025
  489.                 If (INT023 <> 0) Then
  490.                     If (Mid(STRING029, 1, INT023) > STRING035) Break
  491.                     If (STRING035 <> Mid(STRING029, 1, INT023)) Continue
  492.                 Endif
  493.                 STRING029 = RTrim(STRING029, " ")
  494.                 STRING030 = "." + RTrim(STRING030, " ")
  495.                 STRING031 = STRING029 + STRING030
  496.                 If (FUNCTION001(STRING019, STRING029, STRING030)) Gosub LABEL044
  497.             EndWhile
  498.             FClose 4
  499.         EndWhile
  500.         FClose 6
  501.         If (INT015) Goto LABEL017
  502.         Gosub LABEL019
  503.         Goto LABEL018
  504.         :LABEL017
  505.         Gosub LABEL049
  506.         Gosub LABEL029
  507.         :LABEL018
  508.         StartDisp 2
  509.         If (INT013 == INT012) Inc INT013
  510.         Goto LABEL033
  511.         End
  512.         :LABEL019
  513.         If (AnsiOn()) Then
  514.             Print Chr(13)
  515.             ClrEol
  516.         Else
  517.             Newline
  518.         Endif
  519.         PrintLn ReadLine(STRING021, 3)
  520.         Newline
  521.         Wait
  522.         Return
  523.         :LABEL020
  524.         Newline
  525.         PrintLn ReadLine(STRING021, 4), " ", STRING018, ReadLine(STRING021, 5)
  526.         Delay 36
  527.         Return
  528.         :LABEL021
  529.         INT024 = 0
  530.         Newline
  531.         PrintLn ReadLine(STRING021, 9)
  532.         Print ReadLine(STRING021, 10), STRING019
  533.         Newline
  534.         Print ReadLine(STRING021, 11)
  535.         Return
  536.         :LABEL022
  537.         STRING019 = ""
  538.         STRING019 = Upper(TSTRING023(INT013))
  539.         If (InStr(STRING019, "*")) Gosub LABEL024
  540.         STRING046 = STRING018
  541.         Gosub LABEL048
  542.         STRING018 = STRING046
  543.         If (INT033 > 1) Then
  544.             Newline
  545.             Print ReadLine(STRING021, 62), " ", STRING018, " ", ReadLine(STRING021, 63), " ", STRING019
  546.             Newline
  547.             Delay 18
  548.         Endif
  549.         STRING028 = Left(STRING019, 1)
  550.         If ((STRING028 <> "*") || (STRING028 <> "?")) Then
  551.             INT032 = InStr(STRING019, "?")
  552.             INT039 = InStr(STRING019, "*")
  553.             If ((INT032 == 1) || (INT039 == 1)) Then
  554.                 Newline
  555.                 If ((STRING019 == "*.*") && (U_Sec < INT018)) Then
  556.                     DispFile PPEPath() + "allsec", 4 + 1
  557.                     End
  558.                 Endif
  559.             Endif
  560.             If (INT039 > 0) Then
  561.                 If ((INT039 > INT032) && (INT032 == 0)) STRING035 = Mid(STRING019, 1, INT039 - 1)
  562.                 If ((INT039 > INT032) && (INT032 <> 0)) STRING035 = Mid(STRING019, 1, INT032 - 1)
  563.                 If (INT039 < INT032) STRING035 = Mid(STRING019, 1, INT039 - 1)
  564.                 Goto LABEL023
  565.             Endif
  566.             If (INT032 > 0) STRING035 = Mid(STRING019, 1, INT032 - 1)
  567.             :LABEL023
  568.             INT023 = Len(STRING035)
  569.             If (InStr(STRING019, ".") <= INT023) Then
  570.                 INT023 = InStr(STRING019, ".") - 1
  571.                 STRING035 = Mid(STRING019, 1, InStr(STRING019, ".") - 1)
  572.             Endif
  573.         Endif
  574.         Return
  575.         :LABEL024
  576.         INT033 = 0
  577.         For INT027 = 1 To InStr(STRING019, ".")
  578.             If (Mid(STRING019, INT027, 1) == "*") Inc INT033
  579.         Next
  580.         If (INT033 > 1) Then
  581.             STRING018 = STRING019
  582.             STRING019 = "*." + Mid(STRING019, InStr(STRING019, ".") + 1, Len(STRING019) - InStr(STRING019, "."))
  583.         Endif
  584.         Return
  585.         :LABEL025
  586.         BOOLEAN008 = 0
  587.         BOOLEAN007 = 0
  588.         INT031 = INT026
  589.         INT030 = INT025 - 1
  590.         :LABEL026
  591.         If (BOOLEAN008) Goto LABEL027
  592.         REAL001 = INT031
  593.         REAL002 = INT030
  594.         REAL001 = REAL001 / 2
  595.         REAL002 = REAL002 / 2
  596.         REAL003 = REAL001 + REAL002 + 0.5
  597.         INT029 = REAL003
  598.         INTEGER001 = (INT029 - 1) * 13 + 128
  599.         FSeek 4, INTEGER001, 0
  600.         FRead 4, STRING029, 8
  601.         FRead 4, STRING030, 3
  602.         STRING029 = RTrim(STRING029, " ")
  603.         STRING030 = RTrim(STRING030, " ")
  604.         STRING031 = STRING029 + "." + STRING030
  605.         If (Mid(STRING031, 1, INT023) == STRING035) Then
  606.             BOOLEAN007 = 1
  607.             BOOLEAN008 = 1
  608.         ElseIf (INT031 - INT030 < 2) Then
  609.             BOOLEAN008 = 1
  610.         ElseIf (Mid(STRING031, 1, INT023) < STRING035) Then
  611.             INT030 = INT029
  612.         ElseIf (Mid(STRING031, 1, INT023) > STRING035) Then
  613.             INT031 = INT029
  614.         Endif
  615.         Goto LABEL026
  616.         :LABEL027
  617.         Gosub LABEL046
  618.         If (BOOLEAN007) Then
  619.             While (1) Do
  620.                 If (INT029 > 5) Then
  621.                     INT029 = INT029 - 5
  622.                     Goto LABEL028
  623.                 Endif
  624.                 INT025 = 0
  625.                 Break
  626.                 :LABEL028
  627.                 INTEGER001 = INT029 * 13 + 128
  628.                 FSeek 4, INTEGER001, 0
  629.                 FRead 4, STRING029, 8
  630.                 FRead 4, STRING030, 3
  631.                 STRING029 = RTrim(STRING029, " ")
  632.                 STRING030 = RTrim(STRING030, " ")
  633.                 STRING031 = STRING029 + "." + STRING030
  634.                 If (Mid(STRING031, 1, INT023) < STRING035) Then
  635.                     INT025 = INT029
  636.                     Break
  637.                 Endif
  638.             EndWhile
  639.         Endif
  640.         Return
  641.         :LABEL029
  642.         StartDisp 1
  643.         INT035 = 0
  644.         KeyFlush
  645.         Newline
  646.         PrintLn ReadLine(STRING021, 12)
  647.         PrintLn ReadLine(STRING021, 13)
  648.         BOOLEAN009 = 0
  649.         INT033 = 0
  650.         INT035 = INT035 + 3
  651.         INT036 = 3
  652.         STRING043 = PPEPath() + "WILD" + String(PcbNode()) + ".DEF"
  653.         FOpen 7, STRING043, 0, 0
  654.         While (1) Do
  655.             FGet 7, STRING018
  656.             STRING018 = Mid(STRING018, 1, InStr(STRING018, " ") - 1)
  657.             If (Ferr(7)) Break
  658.             Inc INT033
  659.             If (INT033 > INT021) Break
  660.             If (BOOLEAN009) Then
  661.                 BOOLEAN009 = 0
  662.             Else
  663.                 If (INT033 < 10) Print " "
  664.                 Print "@X0F" + String(INT033) + "."
  665.                 If (INT033 < 100) Then
  666.                     Print "   "
  667.                 Else
  668.                     Print "  "
  669.                 Endif
  670.                 Print "@X0A" + STRING018 + Space(18 - Len(String(STRING018)))
  671.                 If (INT033 % INT036 == 0) Then
  672.                     Newline
  673.                     Inc INT035
  674.                 Endif
  675.                 If (INT035 > U_PageLen - 2) Then
  676.                 Endif
  677.                 STRING020 = ReadLine(STRING021, 14)
  678.                 STRING019 = ""
  679.                 InputStr STRING020, STRING019, 14, 1, Mask_Ascii(), 8
  680.                 If (STRING019 == "") Then
  681.                     INT035 = 0
  682.                     If (AnsiOn()) Then
  683.                         Print Chr(13)
  684.                         ClrEol
  685.                     Endif
  686.                     Continue
  687.                     Continue
  688.                 Endif
  689.                 If (STRING019 == YesChar()) Then
  690.                     INT035 = 0
  691.                     Continue
  692.                     Continue
  693.                 Endif
  694.                 If (STRING019 == "Y") Then
  695.                     INT035 = 0
  696.                     Continue
  697.                     Continue
  698.                 Endif
  699.                 If (STRING019 == NoChar()) Then
  700.                     Break
  701.                     Continue
  702.                 Endif
  703.                 If (STRING019 == "N") Then
  704.                     Break
  705.                     Continue
  706.                 Endif
  707.                 If (STRING019 == "F") Then
  708.                     BOOLEAN009 = 1
  709.                     Gosub LABEL030
  710.                     INT035 = 0
  711.                     Continue
  712.                     Continue
  713.                 Endif
  714.                 Return
  715.             Endif
  716.         EndWhile
  717.         Newline
  718.         FClose 7
  719.         BOOLEAN009 = 0
  720.         Goto LABEL031
  721.         :LABEL030
  722.         Newline
  723.         PrintLn ReadLine(STRING021, 15)
  724.         STRING020 = ReadLine(STRING021, 16)
  725.         STRING019 = ""
  726.         InputStr STRING020, STRING019, 14, 50, Mask_Ascii(), 256 + 8
  727.         If (STRING019 == "") Return
  728.         STRING054 = STRING048
  729.         If (InStr(STRING019, "-") > 1) STRING019 = FUNCTION003(STRING019, STRING021, INT021)
  730.         Tokenize STRING019
  731.         INT026 = TokCount()
  732.         If (FlagCnt() + INT026 > INT028) Then
  733.             Newline
  734.             PrintLn ReadLine(STRING021, 17), " @X0E", INT026, ReadLine(STRING021, 18)
  735.             Newline
  736.             PrintLn ReadLine(STRING021, 19), " ", FlagCnt()
  737.             PrintLn ReadLine(STRING021, 20), " ", INT026
  738.             PrintLn ReadLine(STRING021, 21), " ", INT028
  739.             Newline
  740.             INT026 = INT028 - FlagCnt()
  741.             PrintLn ReadLine(STRING021, 22), " @X0E", INT026, ReadLine(STRING021, 23)
  742.         Endif
  743.         Newline
  744.         PrintLn ReadLine(STRING021, 48)
  745.         For INT027 = 1 To INT026
  746.             STRING018 = GetToken()
  747.             If ((S2I(STRING018, 10) == 0) && (STRING018 <> "0")) Then
  748.                 If (STRING027 <> STRING018) Then
  749.                     PrintLn ReadLine(STRING021, 24)
  750.                     PrintLn ReadLine(STRING021, 25) + STRING018 + ReadLine(STRING021, 26)
  751.                     STRING027 = STRING018
  752.                     Newline
  753.                     Delay 36
  754.                 Endif
  755.                 Continue
  756.             Endif
  757.             If ((S2I(STRING018, 10) > INT015) || (S2I(STRING018, 10) < 1)) Then
  758.                 PrintLn ReadLine(STRING021, 27), STRING018, ReadLine(STRING021, 28)
  759.                 Delay 18
  760.                 Continue
  761.             Endif
  762.             STRING027 = ReadLine(STRING043, S2I(STRING018, 10))
  763.             STRING040 = Mid(STRING027, 15, Len(STRING027) - 14)
  764.             STRING027 = Mid(STRING027, 1, InStr(STRING027, " ") - 1)
  765.             If (INTEGER003) Then
  766.                 INTEGER004 = INTEGER004 + FileInf(STRING040 + STRING027, 4)
  767.                 If (INTEGER004 > INTEGER003 - U_BdlDay()) Then
  768.                     Newline
  769.                     PrintLn ReadLine(STRING021, 49)
  770.                     PrintLn ReadLine(STRING021, 50)
  771.                     PrintLn ReadLine(STRING021, 51)
  772.                     Newline
  773.                     PrintLn ReadLine(STRING021, 52)
  774.                     PrintLn ReadLine(STRING021, 53)
  775.                     Newline
  776.                     PrintLn ReadLine(STRING021, 54), INTEGER003
  777.                     PrintLn ReadLine(STRING021, 55), U_BdlDay()
  778.                     PrintLn ReadLine(STRING021, 56), INTEGER003 - U_BdlDay()
  779.                     PrintLn ReadLine(STRING021, 57), INTEGER004
  780.                     INTEGER004 = INTEGER004 - FileInf(STRING040 + STRING027, 4)
  781.                     Break
  782.                 Endif
  783.             Endif
  784.             If ((((((InStr(STRING048, STRING027) == 0) && (InStr(STRING049, STRING027) == 0)) && (InStr(STRING050, STRING027) == 0)) && (InStr(STRING051, STRING027) == 0)) && (InStr(STRING052, STRING027) == 0)) && (InStr(STRING053, STRING027) == 0)) Then
  785.                 Inc INT038
  786.                 STRING026 = Trim(STRING027, " ")
  787.                 STRING048 = STRING048 + STRING026 + " "
  788.                 If (Len(STRING048) > 230) Then
  789.                     While (1) Do
  790.                         If (STRING049 == "") Then
  791.                             STRING049 = STRING048
  792.                             Break
  793.                         Endif
  794.                         If (STRING050 == "") Then
  795.                             STRING050 = STRING048
  796.                             Break
  797.                         Endif
  798.                         If (STRING051 == "") Then
  799.                             STRING051 = STRING048
  800.                             Break
  801.                         Endif
  802.                         If (STRING052 == "") Then
  803.                             STRING052 = STRING048
  804.                             Break
  805.                         Endif
  806.                         If (STRING053 == "") Then
  807.                             STRING053 = STRING048
  808.                             Break
  809.                         Endif
  810.                     EndWhile
  811.                     STRING048 = ""
  812.                 Endif
  813.                 Continue
  814.             Endif
  815.             Newline
  816.             PrintLn ReadLine(STRING021, 29), STRING027, ReadLine(STRING021, 30)
  817.         Next
  818.         If (STRING054 <> STRING048) Then
  819.             INT035 = 0
  820.             Newlines 2
  821.             PrintLn ReadLine(STRING021, 31), INT038, ReadLine(STRING021, 32)
  822.         Endif
  823.         Return
  824.         :LABEL031
  825.         STRING019 = ""
  826.         Newline
  827.         STRING020 = ReadLine(STRING021, 33)
  828.         InputStr STRING020, STRING019, 14, 1, "EFHLR ", 256 + 8 + 2 + 4
  829.         INT035 = 7
  830.         If (STRING019 == "") Then
  831.             If (FlagCnt()) Then
  832.                 If (Left(STRING022, 2) <> "D ") STRING022 = "D " + STRING022
  833.             Endif
  834.             If (INT013 < INT012) Return
  835.             If (BOOLEAN005) STRING022 = STRING022 + Chr(13)
  836.         Else
  837.             Select Case (STRING019)
  838.                 Case "F"
  839.                     Goto LABEL032
  840.                 Case "R"
  841.                     Goto LABEL029
  842.                 Case "E"
  843.                     Gosub LABEL034
  844.                     Goto LABEL031
  845.                 Case "H"
  846.                     Gosub LABEL035
  847.                     Goto LABEL031
  848.                 Case "L"
  849.                     Gosub LABEL036
  850.                     Goto LABEL031
  851.                 Case Else
  852.                     Newline
  853.                     PrintLn ReadLine(STRING021, 34)
  854.                     Delay 36
  855.                     Goto LABEL031
  856.             End Select
  857.             Return
  858.             :LABEL032
  859.             Gosub LABEL030
  860.             Goto LABEL031
  861.         Endif
  862.     Endif
  863.     :LABEL033
  864.     If ((INT013 <= INT012) && (INT012 <> 0)) Return
  865.     If ((((!BOOLEAN004 && !BOOLEAN005) && (STRING022 <> "")) && (STRING022 <> Chr(13))) && (InStr(STRING022, "D ") == 0)) Then
  866.         STRING022 = "D " + STRING022
  867.     Endif
  868.     If (STRING053 <> "") Command 0, "FLAG " + STRING053
  869.     If (STRING052 <> "") Command 0, "FLAG " + STRING052
  870.     If (STRING051 <> "") Command 0, "FLAG " + STRING051
  871.     If (STRING050 <> "") Command 0, "FLAG " + STRING050
  872.     If (STRING049 <> "") Command 0, "FLAG " + STRING049
  873.     If (STRING048 <> "") Command 0, "FLAG " + STRING048
  874.     If ((((((STRING053 <> "") || (STRING052 <> "")) || (STRING051 <> "")) || (STRING050 <> "")) || (STRING049 <> "")) || (STRING048 <> "")) Then
  875.         STRING022 = "D " + Chr(13)
  876.     Endif
  877.     KbdStuff STRING022
  878.     StartDisp 2
  879.     End
  880.     :LABEL034
  881.     If ((((((STRING048 == "") && (STRING049 == "")) && (STRING050 == "")) && (STRING051 == "")) && (STRING052 == "")) && (STRING053 == "")) Then
  882.         Newline
  883.         PrintLn ReadLine(STRING021, 35)
  884.         Delay 36
  885.         Return
  886.     Endif
  887.     Newline
  888.     PrintLn ReadLine(STRING021, 58)
  889.     STRING020 = ReadLine(STRING021, 59) + String(INT038) + ReadLine(STRING021, 60)
  890.     InputStr STRING020, STRING019, 14, 1, Mask_Ascii(), 8 + 16384
  891.     If (STRING019 == YesChar()) Then
  892.         STRING048 = ""
  893.         STRING049 = ""
  894.         STRING050 = ""
  895.         STRING051 = ""
  896.         STRING052 = ""
  897.         STRING053 = ""
  898.         INT038 = 0
  899.         Newlines 2
  900.         PrintLn ReadLine(STRING021, 61)
  901.         Return
  902.     Endif
  903.     If (STRING053 <> "") BIGSTR002 = BIGSTR002 + STRING053
  904.     If (STRING052 <> "") BIGSTR002 = BIGSTR002 + STRING052
  905.     If (STRING051 <> "") BIGSTR002 = BIGSTR002 + STRING051
  906.     If (STRING050 <> "") BIGSTR002 = BIGSTR002 + STRING050
  907.     If (STRING049 <> "") BIGSTR002 = BIGSTR002 + STRING049
  908.     If (STRING048 <> "") BIGSTR002 = BIGSTR002 + STRING048
  909.     STRING048 = ""
  910.     STRING049 = ""
  911.     STRING050 = ""
  912.     STRING051 = ""
  913.     STRING052 = ""
  914.     STRING053 = ""
  915.     INT026 = INT038
  916.     INT038 = 0
  917.     Newline
  918.     If (INTEGER003) FOpen 5, STRING043, 0, 0
  919.     For INT027 = 1 To INT026
  920.         STRING027 = Mid(BIGSTR002, 1, InStr(BIGSTR002, " ") - 1)
  921.         STRING027 = RTrim(STRING027, " ")
  922.         STRING020 = ReadLine(STRING021, 36) + " " + STRING027 + ReadLine(STRING021, 37)
  923.         InputStr STRING020, STRING019, 14, 1, Mask_Ascii(), 256 + 8 + 16384
  924.         If (STRING019 == YesChar()) Then
  925.             Inc INT038
  926.             STRING048 = STRING048 + STRING026 + " "
  927.             If (Len(STRING048) > 200) Then
  928.                 If (STRING049 == "") STRING049 = STRING048
  929.                 If (STRING050 == "") STRING050 = STRING048
  930.                 If (STRING051 == "") STRING051 = STRING048
  931.                 If (STRING052 == "") STRING052 = STRING048
  932.                 If (STRING053 == "") STRING053 = STRING048
  933.                 STRING048 = ""
  934.             Endif
  935.         ElseIf (INTEGER003) Then
  936.             Frewind 5
  937.             While (1) Do
  938.                 FGet 5, STRING025
  939.                 If (Ferr(5)) Break
  940.                 If (InStr(STRING025, STRING027)) Then
  941.                     STRING040 = Mid(STRING025, 15, Len(STRING025) - 14)
  942.                     STRING025 = Mid(STRING025, 1, InStr(STRING025, " ") - 1)
  943.                     INTEGER004 = INTEGER004 - FileInf(STRING040 + STRING027, 4)
  944.                     Break
  945.                 Endif
  946.             EndWhile
  947.         Endif
  948.         BIGSTR002 = Mid(BIGSTR002, InStr(BIGSTR002, " ") + 1, Len(BIGSTR002) - InStr(BIGSTR002, " "))
  949.     Next
  950.     If (INTEGER003) FClose 5
  951.     Return
  952.     :LABEL035
  953.     Newline
  954.     DispFile PPEPath() + "WHLP", 4 + 1
  955.     Return
  956.     :LABEL036
  957.     If ((((((STRING048 == "") && (STRING049 == "")) && (STRING050 == "")) && (STRING051 == "")) && (STRING052 == "")) && (STRING053 == "")) Then
  958.         Newline
  959.         PrintLn ReadLine(STRING021, 43)
  960.         Delay 36
  961.         Return
  962.     Endif
  963.     If (STRING053 <> "") BIGSTR002 = BIGSTR002 + STRING053
  964.     If (STRING052 <> "") BIGSTR002 = BIGSTR002 + STRING052
  965.     If (STRING051 <> "") BIGSTR002 = BIGSTR002 + STRING051
  966.     If (STRING050 <> "") BIGSTR002 = BIGSTR002 + STRING050
  967.     If (STRING049 <> "") BIGSTR002 = BIGSTR002 + STRING049
  968.     If (STRING048 <> "") BIGSTR002 = BIGSTR002 + STRING048
  969.     Newline
  970.     PrintLn ReadLine(STRING021, 44)
  971.     Newline
  972.     INT026 = INT038
  973.     For INT027 = 1 To INT026
  974.         STRING027 = Mid(BIGSTR002, 1, InStr(BIGSTR002, " ") - 1)
  975.         If (INT027 < 10) Print " "
  976.         Print "@X02" + String(INT027) + "." + Space(3)
  977.         Print "@X03" + STRING027 + Space(18 - Len(String(STRING027)))
  978.         If (INT027 % INT036 == 0) Newline
  979.         BIGSTR002 = Mid(BIGSTR002, InStr(BIGSTR002, " ") + 1, Len(BIGSTR002) - InStr(BIGSTR002, " "))
  980.     Next
  981.     Newline
  982.     Return
  983.     :LABEL037
  984.     If (AnsiOn()) Then
  985.         STRING026 = ReadLine(STRING021, 46)
  986.     Else
  987.         STRING026 = ReadLine(STRING021, 47)
  988.     Endif
  989.     STRING036 = Mid(STRING026, 1, 1)
  990.     STRING037 = Mid(STRING026, 2, 1)
  991.     STRING038 = Mid(STRING026, 3, 1)
  992.     STRING039 = Mid(STRING026, 4, 1)
  993.     STRING041 = Chr(8) + Chr(32) + Chr(8)
  994.     Return
  995.     :LABEL038
  996.     If (PcbNode() == 0) Then
  997.         STRING018 = Inkey()
  998.     Else
  999.         STRING018 = MGetByte()
  1000.     Endif
  1001.     If ((STRING018 == 13) || (STRING018 == Chr(13))) Then
  1002.         Print STRING041 + " " + STRING041
  1003.         Newline
  1004.         PrintLn ReadLine(STRING021, 45)
  1005.         BOOLEAN010 = 1
  1006.         Delay 18
  1007.     Endif
  1008.     Return
  1009.     :LABEL039
  1010.     STRING055 = ReadLine(PCBDat(), 31) + ".@@@"
  1011.     STRING057 = ReadLine(PCBDat(), 32)
  1012.     STRING058 = ReadLine(PCBDat(), 33)
  1013.     FOpen 1, STRING055, 0, 0
  1014.     FRead 1, INT037, 2
  1015.     FSeek 1, CurConf() * INT037 + 515, 1
  1016.     FRead 1, STRING059, 33
  1017.     FClose 1
  1018.     STRING059 = RTrim(STRING059, " ")
  1019.     STRING057 = RTrim(STRING057, " ")
  1020.     STRING058 = RTrim(STRING058, " ")
  1021.     Return
  1022.     :LABEL040
  1023.     INT033 = 0
  1024.     FOpen 1, STRING058, 0, 0
  1025.     While (1) Do
  1026.         FGet 1, STRING018
  1027.         If (Ferr(1)) Break
  1028.         Gosub LABEL046
  1029.         Inc INT033
  1030.         For INT027 = 1 To 2
  1031.             STRING018 = Mid(STRING018, InStr(STRING018, ",") + 1, Len(STRING018) - InStr(STRING018, ","))
  1032.             If (INT027 == 2) Then
  1033.                 STRING045 = Mid(STRING018, 1, InStr(STRING018, ",") - 1)
  1034.                 If (S2I(STRING045, 10) > U_Sec) Then
  1035.                     BIGSTR001 = BIGSTR001 + String(INT033) + Space(3 - Len(INT033))
  1036.                 Endif
  1037.             Endif
  1038.         Next
  1039.     EndWhile
  1040.     FClose 1
  1041.     Return
  1042.     :LABEL041
  1043.     FOpen 1, STRING057, 0, 0
  1044.     Gosub LABEL046
  1045.     While (1) Do
  1046.         FGet 1, STRING018
  1047.         If (Ferr(1)) Break
  1048.         STRING018 = Mid(STRING018, InStr(STRING018, ",") + 1, Len(STRING018) - InStr(STRING018, ","))
  1049.         STRING027 = Mid(STRING018, 1, InStr(STRING018, ",") - 1)
  1050.         If (S2I(STRING027, 10) == U_Sec) Then
  1051.             For INT027 = 1 To 4
  1052.                 STRING018 = Mid(STRING018, InStr(STRING018, ",") + 1, Len(STRING018) - InStr(STRING018, ","))
  1053.                 If (INT027 == 2) Then
  1054.                     STRING025 = Mid(STRING018, 1, InStr(STRING018, ",") - 1)
  1055.                     If (STRING025 <> "32767") INTEGER003 = S2I(STRING025, 10) * 1000
  1056.                 Endif
  1057.             Next
  1058.             STRING027 = Mid(STRING018, 1, InStr(STRING018, ",") - 1)
  1059.             INT028 = S2I(STRING027, 10)
  1060.             If (INT028 == 0) INT028 = 30
  1061.             Break
  1062.         Endif
  1063.     EndWhile
  1064.     FClose 1
  1065.     Return
  1066.     :LABEL042
  1067.     BOOLEAN011 = 1
  1068.     INT034 = 1
  1069.     While (1) Do
  1070.         Gosub LABEL046
  1071.         INT033 = S2I(Mid(BIGSTR001, INT034, 3), 10)
  1072.         STRING032 = ReadLine(STRING058, INT033)
  1073.         If (STRING032 == "") Break
  1074.         STRING047 = Mid(STRING032, 1, InStr(STRING032, ",") - 1)
  1075.         If ((STRING047 <> STRING044) || ((Len(STRING047) == 2) && (STRING047 == Mid(STRING044, 1, 2)))) Then
  1076.             INT034 = INT034 + 3
  1077.             If (INT034 > Len(BIGSTR001)) Break
  1078.             Continue
  1079.             Continue
  1080.         Endif
  1081.         STRING018 = STRING047 + STRING060
  1082.         If (Len(FindFirst(STRING018)) > 0) Then
  1083.             BOOLEAN011 = 0
  1084.             Break
  1085.         Endif
  1086.         INT034 = INT034 + 3
  1087.         If (INT034 > Len(BIGSTR001)) Break
  1088.     EndWhile
  1089.     Return
  1090.     :LABEL043
  1091.     If (INT015) Then
  1092.         FClose 6
  1093.         Gosub LABEL049
  1094.         Gosub LABEL029
  1095.         If (INT013 <= INT012) Then
  1096.             INT015 = 0
  1097.             Delete STRING043
  1098.             FAppend 6, STRING043, 1, 0
  1099.         Endif
  1100.     Else
  1101.         Gosub LABEL019
  1102.     Endif
  1103.     Return
  1104.     :LABEL044
  1105.     If (BOOLEAN013) Then
  1106.         FOpen 1, STRING024, 0, 0
  1107.         INTEGER002 = 128 + INT020 * 13 + INT014 * 64
  1108.         FSeek 1, INTEGER002, 0
  1109.         FRead 1, STRING044, 64
  1110.         FClose 1
  1111.         STRING044 = RTrim(STRING044, " ")
  1112.         STRING026 = STRING031
  1113.     Else
  1114.         STRING044 = STRING024
  1115.         STRING026 = STRING027
  1116.     Endif
  1117.     If (TSTRING061(0) <> "") Then
  1118.         For INT027 = 0 To INT016
  1119.             If (InStr(TSTRING061(INT027), STRING026)) Return
  1120.         Next
  1121.     Endif
  1122.     If (TSTRING062(0) <> "") Then
  1123.         For INT027 = 0 To INT017
  1124.             If (InStr(TSTRING062(INT027), STRING044)) Return
  1125.         Next
  1126.     Endif
  1127.     If (BIGSTR001 <> "") Then
  1128.         STRING060 = STRING027
  1129.         Gosub LABEL042
  1130.     Else
  1131.         BOOLEAN011 = 1
  1132.     Endif
  1133.     If (BOOLEAN011) Then
  1134.         If (BOOLEAN013) Goto LABEL045
  1135.         FPut 6, STRING027
  1136.         FPut 6, Space(14 - Len(STRING027))
  1137.         STRING026 = FileInf(STRING044, 6) + ":" + FileInf(STRING044, 7)
  1138.         FPutLn 6, STRING026
  1139.         :LABEL045
  1140.         If (BOOLEAN013) Then
  1141.             FPut 6, STRING031
  1142.             FPut 6, Space(14 - Len(STRING031))
  1143.             STRING026 = FileInf(STRING044, 6) + ":" + FileInf(STRING044, 7)
  1144.             FPutLn 6, STRING026
  1145.         Endif
  1146.         Inc INT015
  1147.     Endif
  1148.     Return
  1149.     :LABEL046
  1150.     REAL004 = Time()
  1151.     If ((REAL004 - REAL005 < 1) && (INT024 <> 0)) Return
  1152.     REAL005 = REAL004
  1153.     If (INT024 == 0) Print " "
  1154.     If (INT024 > 3) INT024 = 0
  1155.     STRING042 = STRING041 + " " + STRING041
  1156.     Inc INT024
  1157.     Select Case (INT024)
  1158.         Case 1
  1159.             STRING042 = STRING042 + STRING036
  1160.         Case 2
  1161.             STRING042 = STRING042 + STRING037
  1162.         Case 3
  1163.             STRING042 = STRING042 + STRING038
  1164.         Case 4
  1165.             STRING042 = STRING042 + STRING039
  1166.     End Select
  1167.     Print STRING042
  1168.     STRING042 = ""
  1169.     Return
  1170.     :LABEL047
  1171.     INT027 = 0
  1172.     STRING026 = PPEPath() + String(CurConf()) + "\FIL" + String(CurConf())
  1173.     If (Exist(STRING026)) Then
  1174.         FOpen 5, STRING026, 0, 0
  1175.         While (1) Do
  1176.             FGet 5, TSTRING061(INT027)
  1177.             If (Ferr(5)) Break
  1178.             TSTRING061(INT027) = Mid(Upper(TSTRING061(INT027)), 1, 255)
  1179.             Inc INT027
  1180.             INT016 = INT027
  1181.             If (INT027 == 10) Break
  1182.         EndWhile
  1183.     Endif
  1184.     INT027 = 0
  1185.     STRING026 = PPEPath() + String(CurConf()) + "\DIR" + String(CurConf())
  1186.     If (Exist(STRING026)) Then
  1187.         FOpen 5, STRING026, 0, 0
  1188.         While (1) Do
  1189.             FGet 5, TSTRING062(INT027)
  1190.             If (Ferr(5)) Break
  1191.             TSTRING062(INT027) = Mid(Upper(TSTRING062(INT027)), 1, 255)
  1192.             Inc INT027
  1193.             INT017 = INT027
  1194.             If (INT027 == 10) Break
  1195.         EndWhile
  1196.     Endif
  1197.     Return
  1198.     :LABEL048
  1199.     If (Exist(PPEPath() + "WILD.CFG")) Then
  1200.         FOpen 1, PPEPath() + "WILD.CFG", 0, 0
  1201.         FGet 1, STRING018
  1202.         INT021 = S2I(STRING018, 10)
  1203.         FGet 1, STRING018
  1204.         INT018 = S2I(STRING018, 10)
  1205.         INT027 = 0
  1206.         INT022 = 0
  1207.         While (1) Do
  1208.             FGet 1, STRING018
  1209.             If (Ferr(1)) Break
  1210.             If (InStr(STRING018, "\") == 0) Then
  1211.                 If (Len(TSTRING061(INT027) + STRING018 + " ") > 255) Then
  1212.                     Inc INT027
  1213.                     INT016 = INT027
  1214.                 Endif
  1215.                 TSTRING061(INT027) = TSTRING061(INT027) + Upper(STRING018) + " "
  1216.                 If (INT027 == 10) Break
  1217.                 Continue
  1218.             Endif
  1219.             If (Len(TSTRING062(INT022) + STRING018 + " ") > 255) Then
  1220.                 Inc INT022
  1221.                 INT017 = INT022
  1222.             Endif
  1223.             TSTRING062(INT022) = TSTRING062(INT022) + Upper(STRING018) + " "
  1224.             If (INT022 == 10) Break
  1225.         EndWhile
  1226.         If ((TSTRING061(0) <> "") || (TSTRING062(0) <> "")) BOOLEAN014 = 1
  1227.     Else
  1228.         Newlines 2
  1229.         PrintLn "@X0FWILD.CFG does not exist in the WILD.PPE directory"
  1230.         Newlines 2
  1231.         PrintLn "@X0C.....Program Aborted.....@X07"
  1232.         Newlines 2
  1233.         Wait
  1234.         End
  1235.     Endif
  1236.     FClose 1
  1237.     Return
  1238.     :LABEL049
  1239.     Print STRING041
  1240.     If (INT015 >= INT021) Then
  1241.         PrintLn ReadLine(STRING021, 6), INT015, ReadLine(STRING021, 7)
  1242.     Else
  1243.         PrintLn ReadLine(STRING021, 8), INT015
  1244.     Endif
  1245.     Return
  1246.  
  1247. ;------------------------------------------------------------------------------
  1248. ;
  1249. ; Usage report (before postprocessing)
  1250. ;
  1251. ; ■ Statements used :
  1252. ;
  1253. ;    5       End
  1254. ;    2       ClrEol
  1255. ;    2       Wait
  1256. ;    300     Goto 
  1257. ;    334     Let 
  1258. ;    17      Print 
  1259. ;    40      PrintLn 
  1260. ;    241     If 
  1261. ;    2       DispFile 
  1262. ;    11      FOpen 
  1263. ;    2       FAppend 
  1264. ;    10      FClose 
  1265. ;    10      FGet 
  1266. ;    4       FPut 
  1267. ;    2       FPutLn 
  1268. ;    4       StartDisp 
  1269. ;    1       GetUser
  1270. ;    2       Delete 
  1271. ;    6       InputStr 
  1272. ;    40      Gosub 
  1273. ;    34      Return
  1274. ;    10      Delay 
  1275. ;    16      Inc 
  1276. ;    1       Dec 
  1277. ;    37      Newline
  1278. ;    5       Newlines 
  1279. ;    3       Tokenize 
  1280. ;    1       KbdStuff 
  1281. ;    2       Frewind 
  1282. ;    6       FSeek 
  1283. ;    13      FRead 
  1284. ;    1       KeyFlush
  1285. ;    3       EndFunc
  1286. ;    6       Command 
  1287. ;
  1288. ;
  1289. ; ■ Functions used :
  1290. ;
  1291. ;    1       -
  1292. ;    8       *
  1293. ;    2       /
  1294. ;    2       %
  1295. ;    155     +
  1296. ;    49      -
  1297. ;    101     ==
  1298. ;    61      <>
  1299. ;    25      <
  1300. ;    14      <=
  1301. ;    33      >
  1302. ;    27      >=
  1303. ;    155     !
  1304. ;    53      &&
  1305. ;    31      ||
  1306. ;    35      Len(
  1307. ;    5       Upper()
  1308. ;    52      Mid()
  1309. ;    4       Left()
  1310. ;    6       Space()
  1311. ;    8       Ferr()
  1312. ;    13      Chr()
  1313. ;    65      InStr()
  1314. ;    1       LTrim()
  1315. ;    11      RTrim()
  1316. ;    1       Trim()
  1317. ;    1       Time()
  1318. ;    3       U_BdlDay()
  1319. ;    1       NoChar()
  1320. ;    3       YesChar()
  1321. ;    1       Inkey()
  1322. ;    12      String()
  1323. ;    5       Mask_Ascii()
  1324. ;    5       CurConf()
  1325. ;    3       PCBDat()
  1326. ;    9       PPEPath()
  1327. ;    3       PcbNode()
  1328. ;    69      ReadLine()
  1329. ;    7       GetToken()
  1330. ;    4       Exist()
  1331. ;    1       I2S()
  1332. ;    14      S2I()
  1333. ;    1       LangExt()
  1334. ;    3       AnsiOn()
  1335. ;    7       FileInf()
  1336. ;    1       MGetByte()
  1337. ;    3       TokCount()
  1338. ;    5       FlagCnt()
  1339. ;    2       FindFirst()
  1340. ;    1       FindNext()
  1341. ;
  1342. ;------------------------------------------------------------------------------
  1343. ;
  1344. ; Analysis flags : di
  1345. ;
  1346. ; d - Access PCBOARD.DAT ■ 2
  1347. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1348. ;     for many PPE so they can find various informations on the system
  1349. ;     (system paths, max number of lines in messages, ...) but it may also
  1350. ;     be a way to gather vital informations.
  1351. ;     ■ Search for : PCBDAT()
  1352. ;
  1353. ; i - Sequencially read files in directory ■ 3
  1354. ;     Program is reading files in directory sequencially, maybe to get
  1355. ;     a DIR image, but this can be to look for targets to destroy
  1356. ;     ■ Search for : FINDFIRST(), FINDNEXT()
  1357. ;
  1358. ;------------------------------------------------------------------------------
  1359. ;
  1360. ; Postprocessing report
  1361. ;
  1362. ;    10      For/Next
  1363. ;    14      While/EndWhile
  1364. ;    111     If/Then or If/Then/Else
  1365. ;    2       Select Case
  1366. ;
  1367. ;------------------------------------------------------------------------------
  1368. ;                 AEGiS Corp - Break the routines, code against the machines!
  1369. ;------------------------------------------------------------------------------
  1370.